/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / select.elc.z / select.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 65 72 69 6b 40 6e 61 |piled by| erik@na|
|00000020| 67 67 75 6d 2e 6e 6f 20 | 6f 6e 20 53 75 6e 20 4a |ggum.no |on Sun J|
|00000030| 61 6e 20 31 34 20 30 36 | 3a 33 37 3a 34 30 20 31 |an 14 06|:37:40 1|
|00000040| 39 39 36 0a 3b 3b 3b 20 | 66 72 6f 6d 20 66 69 6c |996.;;; |from fil|
|00000050| 65 20 2f 67 64 2f 67 6e | 75 2f 65 6d 61 63 73 2f |e /gd/gn|u/emacs/|
|00000060| 31 39 2e 30 2f 6c 69 73 | 70 2f 73 65 6c 65 63 74 |19.0/lis|p/select|
|00000070| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|00000080| 72 73 69 6f 6e 20 31 39 | 2e 33 30 2e 37 30 2e 36 |rsion 19|.30.70.6|
|00000090| 2e 0a 3b 3b 3b 20 62 79 | 74 65 63 6f 6d 70 20 76 |..;;; by|tecomp v|
|000000a0| 65 72 73 69 6f 6e 20 46 | 53 46 20 32 2e 31 30 0a |ersion F|SF 2.10.|
|000000b0| 3b 3b 3b 20 6f 70 74 69 | 6d 69 7a 61 74 69 6f 6e |;;; opti|mization|
|000000c0| 20 69 73 20 6f 6e 2e 0a | 3b 3b 3b 20 74 68 69 73 | is on..|;;; this|
|000000d0| 20 66 69 6c 65 20 75 73 | 65 73 20 6f 70 63 6f 64 | file us|es opcod|
|000000e0| 65 73 20 77 68 69 63 68 | 20 64 6f 20 6e 6f 74 20 |es which| do not |
|000000f0| 65 78 69 73 74 20 69 6e | 20 45 6d 61 63 73 20 31 |exist in| Emacs 1|
|00000100| 38 2e 0a 0a 28 69 66 20 | 28 61 6e 64 20 28 62 6f |8...(if |(and (bo|
|00000110| 75 6e 64 70 20 27 65 6d | 61 63 73 2d 76 65 72 73 |undp 'em|acs-vers|
|00000120| 69 6f 6e 29 0a 09 20 28 | 6f 72 20 28 61 6e 64 20 |ion).. (|or (and |
|00000130| 28 62 6f 75 6e 64 70 20 | 27 65 70 6f 63 68 3a 3a |(boundp |'epoch::|
|00000140| 76 65 72 73 69 6f 6e 29 | 20 65 70 6f 63 68 3a 3a |version)| epoch::|
|00000150| 76 65 72 73 69 6f 6e 29 | 0a 09 20 20 20 20 20 28 |version)|..     (|
|00000160| 73 74 72 69 6e 67 2d 6c | 65 73 73 70 20 65 6d 61 |string-l|essp ema|
|00000170| 63 73 2d 76 65 72 73 69 | 6f 6e 20 22 31 39 2e 32 |cs-versi|on "19.2|
|00000180| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|00000190| 20 22 60 73 65 6c 65 63 | 74 2e 65 6c 27 20 77 61 | "`selec|t.el' wa|
|000001a0| 73 20 63 6f 6d 70 69 6c | 65 64 20 66 6f 72 20 45 |s compil|ed for E|
|000001b0| 6d 61 63 73 20 31 39 2e | 32 39 20 6f 72 20 6c 61 |macs 19.|29 or la|
|000001c0| 74 65 72 22 29 29 0a 0a | 0a 28 64 65 66 61 6c 69 |ter"))..|.(defali|
|000001d0| 61 73 20 28 71 75 6f 74 | 65 20 78 2d 73 65 6c 65 |as (quot|e x-sele|
|000001e0| 63 74 69 6f 6e 29 20 28 | 71 75 6f 74 65 20 78 2d |ction) (|quote x-|
|000001f0| 67 65 74 2d 73 65 6c 65 | 63 74 69 6f 6e 29 29 0a |get-sele|ction)).|
|00000200| 23 40 31 38 32 20 52 65 | 74 75 72 6e 20 74 68 65 |#@182 Re|turn the|
|00000210| 20 76 61 6c 75 65 20 6f | 66 20 61 6e 20 58 20 57 | value o|f an X W|
|00000220| 69 6e 64 6f 77 73 20 73 | 65 6c 65 63 74 69 6f 6e |indows s|election|
|00000230| 2e 0a 54 68 65 20 61 72 | 67 75 6d 65 6e 74 20 54 |..The ar|gument T|
|00000240| 59 50 45 20 28 64 65 66 | 61 75 6c 74 20 60 50 52 |YPE (def|ault `PR|
|00000250| 49 4d 41 52 59 27 29 20 | 73 61 79 73 20 77 68 69 |IMARY') |says whi|
|00000260| 63 68 20 73 65 6c 65 63 | 74 69 6f 6e 2c 20 0a 61 |ch selec|tion, .a|
|00000270| 6e 64 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 |nd the a|rgument |
|00000280| 44 41 54 41 2d 54 59 50 | 45 20 28 64 65 66 61 75 |DATA-TYP|E (defau|
|00000290| 6c 74 20 60 53 54 52 49 | 4e 47 27 29 20 73 61 79 |lt `STRI|NG') say|
|000002a0| 73 20 68 6f 77 20 74 6f | 20 63 6f 6e 76 65 72 74 |s how to| convert|
|000002b0| 20 74 68 65 20 64 61 74 | 61 2e 1f 0a 28 64 65 66 | the dat|a...(def|
|000002c0| 61 6c 69 61 73 20 27 78 | 2d 67 65 74 2d 73 65 6c |alias 'x|-get-sel|
|000002d0| 65 63 74 69 6f 6e 20 23 | 5b 28 26 6f 70 74 69 6f |ection #|[(&optio|
|000002e0| 6e 61 6c 20 74 79 70 65 | 20 64 61 74 61 2d 74 79 |nal type| data-ty|
|000002f0| 70 65 29 20 22 c0 09 86 | 06 00 c2 0b 86 0b 00 c4 |pe) "...|........|
|00000300| 5c 22 87 22 20 5b 78 2d | 67 65 74 2d 73 65 6c 65 |\"." [x-|get-sele|
|00000310| 63 74 69 6f 6e 2d 69 6e | 74 65 72 6e 61 6c 20 74 |ction-in|ternal t|
|00000320| 79 70 65 20 50 52 49 4d | 41 52 59 20 64 61 74 61 |ype PRIM|ARY data|
|00000330| 2d 74 79 70 65 20 53 54 | 52 49 4e 47 5d 20 33 20 |-type ST|RING] 3 |
|00000340| 28 23 24 20 2e 20 35 31 | 38 29 5d 29 0a 23 40 33 |(#$ . 51|8)]).#@3|
|00000350| 38 20 52 65 74 75 72 6e | 20 74 65 78 74 20 70 61 |8 Return| text pa|
|00000360| 73 74 65 64 20 74 6f 20 | 74 68 65 20 63 6c 69 70 |sted to |the clip|
|00000370| 62 6f 61 72 64 2e 1f 0a | 28 64 65 66 61 6c 69 61 |board...|(defalia|
|00000380| 73 20 27 78 2d 67 65 74 | 2d 63 6c 69 70 62 6f 61 |s 'x-get|-clipboa|
|00000390| 72 64 20 23 5b 6e 69 6c | 20 22 c0 c1 c2 5c 22 87 |rd #[nil| "...\".|
|000003a0| 22 20 5b 78 2d 67 65 74 | 2d 73 65 6c 65 63 74 69 |" [x-get|-selecti|
|000003b0| 6f 6e 2d 69 6e 74 65 72 | 6e 61 6c 20 43 4c 49 50 |on-inter|nal CLIP|
|000003c0| 42 4f 41 52 44 20 53 54 | 52 49 4e 47 5d 20 33 20 |BOARD ST|RING] 3 |
|000003d0| 28 23 24 20 2e 20 38 35 | 30 29 5d 29 0a 23 40 37 |(#$ . 85|0)]).#@7|
|000003e0| 32 32 20 4d 61 6b 65 20 | 61 6e 20 58 20 57 69 6e |22 Make |an X Win|
|000003f0| 64 6f 77 73 20 73 65 6c | 65 63 74 69 6f 6e 20 6f |dows sel|ection o|
|00000400| 66 20 74 79 70 65 20 54 | 59 50 45 20 61 6e 64 20 |f type T|YPE and |
|00000410| 76 61 6c 75 65 20 44 41 | 54 41 2e 0a 54 68 65 20 |value DA|TA..The |
|00000420| 61 72 67 75 6d 65 6e 74 | 20 54 59 50 45 20 28 64 |argument| TYPE (d|
|00000430| 65 66 61 75 6c 74 20 60 | 50 52 49 4d 41 52 59 27 |efault `|PRIMARY'|
|00000440| 29 20 73 61 79 73 20 77 | 68 69 63 68 20 73 65 6c |) says w|hich sel|
|00000450| 65 63 74 69 6f 6e 2c 20 | 0a 61 6e 64 20 44 41 54 |ection, |.and DAT|
|00000460| 41 20 73 70 65 63 69 66 | 69 65 73 20 74 68 65 20 |A specif|ies the |
|00000470| 63 6f 6e 74 65 6e 74 73 | 2e 20 20 44 41 54 41 20 |contents|.  DATA |
|00000480| 6d 61 79 20 62 65 20 61 | 20 73 74 72 69 6e 67 2c |may be a| string,|
|00000490| 0a 61 20 73 79 6d 62 6f | 6c 2c 20 61 6e 20 69 6e |.a symbo|l, an in|
|000004a0| 74 65 67 65 72 20 28 6f | 72 20 61 20 63 6f 6e 73 |teger (o|r a cons|
|000004b0| 20 6f 66 20 74 77 6f 20 | 69 6e 74 65 67 65 72 73 | of two |integers|
|000004c0| 20 6f 72 20 6c 69 73 74 | 20 6f 66 20 74 77 6f 20 | or list| of two |
|000004d0| 69 6e 74 65 67 65 72 73 | 29 2e 0a 0a 54 68 65 20 |integers|)...The |
|000004e0| 73 65 6c 65 63 74 69 6f | 6e 20 6d 61 79 20 61 6c |selectio|n may al|
|000004f0| 73 6f 20 62 65 20 61 20 | 63 6f 6e 73 20 6f 66 20 |so be a |cons of |
|00000500| 74 77 6f 20 6d 61 72 6b | 65 72 73 20 70 6f 69 6e |two mark|ers poin|
|00000510| 74 69 6e 67 20 74 6f 20 | 74 68 65 20 73 61 6d 65 |ting to |the same|
|00000520| 20 62 75 66 66 65 72 2c | 0a 6f 72 20 61 6e 20 6f | buffer,|.or an o|
|00000530| 76 65 72 6c 61 79 2e 20 | 20 49 6e 20 74 68 65 73 |verlay. | In thes|
|00000540| 65 20 63 61 73 65 73 2c | 20 74 68 65 20 73 65 6c |e cases,| the sel|
|00000550| 65 63 74 69 6f 6e 20 69 | 73 20 63 6f 6e 73 69 64 |ection i|s consid|
|00000560| 65 72 65 64 20 74 6f 20 | 62 65 20 74 68 65 20 74 |ered to |be the t|
|00000570| 65 78 74 20 0a 62 65 74 | 77 65 65 6e 20 74 68 65 |ext .bet|ween the|
|00000580| 20 6d 61 72 6b 65 72 73 | 20 2a 61 74 20 77 68 61 | markers| *at wha|
|00000590| 74 65 76 65 72 20 74 69 | 6d 65 20 74 68 65 20 73 |tever ti|me the s|
|000005a0| 65 6c 65 63 74 69 6f 6e | 20 69 73 20 65 78 61 6d |election| is exam|
|000005b0| 69 6e 65 64 2a 2e 0a 54 | 68 75 73 2c 20 65 64 69 |ined*..T|hus, edi|
|000005c0| 74 69 6e 67 20 64 6f 6e | 65 20 69 6e 20 74 68 65 |ting don|e in the|
|000005d0| 20 62 75 66 66 65 72 20 | 61 66 74 65 72 20 79 6f | buffer |after yo|
|000005e0| 75 20 73 70 65 63 69 66 | 79 20 74 68 65 20 73 65 |u specif|y the se|
|000005f0| 6c 65 63 74 69 6f 6e 0a | 63 61 6e 20 61 6c 74 65 |lection.|can alte|
|00000600| 72 20 74 68 65 20 65 66 | 66 65 63 74 69 76 65 20 |r the ef|fective |
|00000610| 76 61 6c 75 65 20 6f 66 | 20 74 68 65 20 73 65 6c |value of| the sel|
|00000620| 65 63 74 69 6f 6e 2e 0a | 0a 54 68 65 20 64 61 74 |ection..|.The dat|
|00000630| 61 20 6d 61 79 20 61 6c | 73 6f 20 62 65 20 61 20 |a may al|so be a |
|00000640| 76 65 63 74 6f 72 20 6f | 66 20 76 61 6c 69 64 20 |vector o|f valid |
|00000650| 6e 6f 6e 2d 76 65 63 74 | 6f 72 20 73 65 6c 65 63 |non-vect|or selec|
|00000660| 74 69 6f 6e 20 76 61 6c | 75 65 73 2e 0a 0a 49 6e |tion val|ues...In|
|00000670| 74 65 72 61 63 74 69 76 | 65 6c 79 2c 20 74 68 65 |teractiv|ely, the|
|00000680| 20 74 65 78 74 20 6f 66 | 20 74 68 65 20 72 65 67 | text of| the reg|
|00000690| 69 6f 6e 20 69 73 20 75 | 73 65 64 20 61 73 20 74 |ion is u|sed as t|
|000006a0| 68 65 20 73 65 6c 65 63 | 74 69 6f 6e 20 76 61 6c |he selec|tion val|
|000006b0| 75 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ue...(de|falias '|
|000006c0| 78 2d 73 65 74 2d 73 65 | 6c 65 63 74 69 6f 6e 20 |x-set-se|lection |
|000006d0| 23 5b 28 74 79 70 65 20 | 64 61 74 61 29 20 22 08 |#[(type |data) ".|
|000006e0| 3b 83 09 00 c1 08 21 10 | c2 0b 21 84 46 00 c4 0b |;.....!.|..!.F...|
|000006f0| 21 83 3f 00 c5 0b 47 53 | 1e 06 1e 07 0e 06 c8 59 |!.?...GS|.......Y|
|00000700| 83 39 00 c2 0b 0e 06 48 | 21 84 30 00 c9 16 07 0e |.9.....H|!.0.....|
|00000710| 06 53 89 16 06 82 1f 00 | 0e 07 2a 84 46 00 ca cb |.S......|..*.F...|
|00000720| cc 0b 44 5c 22 88 08 84 | 4c 00 cd 10 0b 83 58 00 |..D\"...|L.....X.|
|00000730| ce 08 0b 5c 22 88 82 5c | 5c 00 cf 08 21 88 0b 87 |...\"..\|\...!...|
|00000740| 22 20 5b 74 79 70 65 20 | 69 6e 74 65 72 6e 20 78 |" [type |intern x|
|00000750| 2d 76 61 6c 69 64 2d 73 | 69 6d 70 6c 65 2d 73 65 |-valid-s|imple-se|
|00000760| 6c 65 63 74 69 6f 6e 2d | 70 20 64 61 74 61 20 76 |lection-|p data v|
|00000770| 65 63 74 6f 72 70 20 74 | 20 69 20 76 61 6c 69 64 |ectorp t| i valid|
|00000780| 20 30 20 6e 69 6c 20 73 | 69 67 6e 61 6c 20 65 72 | 0 nil s|ignal er|
|00000790| 72 6f 72 20 22 69 6e 76 | 61 6c 69 64 20 73 65 6c |ror "inv|alid sel|
|000007a0| 65 63 74 69 6f 6e 22 20 | 50 52 49 4d 41 52 59 20 |ection" |PRIMARY |
|000007b0| 78 2d 6f 77 6e 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |x-own-se|lection-|
|000007c0| 69 6e 74 65 72 6e 61 6c | 20 78 2d 64 69 73 6f 77 |internal| x-disow|
|000007d0| 6e 2d 73 65 6c 65 63 74 | 69 6f 6e 2d 69 6e 74 65 |n-select|ion-inte|
|000007e0| 72 6e 61 6c 5d 20 35 20 | 28 23 24 20 2e 20 39 39 |rnal] 5 |(#$ . 99|
|000007f0| 35 29 20 28 62 79 74 65 | 2d 63 6f 64 65 20 22 08 |5) (byte|-code ".|
|00000800| 84 5c 6e 00 c1 c2 c3 21 | 44 87 c1 c4 20 c5 20 c6 |.\n....!|D... . .|
|00000810| 4f 44 87 22 20 5b 63 75 | 72 72 65 6e 74 2d 70 72 |OD." [cu|rrent-pr|
|00000820| 65 66 69 78 2d 61 72 67 | 20 50 52 49 4d 41 52 59 |efix-arg| PRIMARY|
|00000830| 20 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 53 65 | read-st|ring "Se|
|00000840| 74 20 74 65 78 74 20 66 | 6f 72 20 70 61 73 74 69 |t text f|or pasti|
|00000850| 6e 67 3a 20 22 20 72 65 | 67 69 6f 6e 2d 62 65 67 |ng: " re|gion-beg|
|00000860| 69 6e 6e 69 6e 67 20 72 | 65 67 69 6f 6e 2d 65 6e |inning r|egion-en|
|00000870| 64 20 6e 69 6c 5d 20 34 | 29 5d 29 0a 28 64 65 66 |d nil] 4|)]).(def|
|00000880| 61 6c 69 61 73 20 27 78 | 2d 76 61 6c 69 64 2d 73 |alias 'x|-valid-s|
|00000890| 69 6d 70 6c 65 2d 73 65 | 6c 65 63 74 69 6f 6e 2d |imple-se|lection-|
|000008a0| 70 20 23 5b 28 64 61 74 | 61 29 20 22 08 3b 86 6f |p #[(dat|a) ".;.o|
|000008b0| 00 08 39 86 6f 00 08 a8 | 86 6f 00 08 3a 83 2d 00 |..9.o...|.o..:.-.|
|000008c0| 08 40 a8 83 2d 00 08 41 | a8 86 6f 00 08 41 3a 83 |.@..-..A|..o..A:.|
|000008d0| 2d 00 08 41 40 a8 86 6f | 00 c1 08 21 86 6f 00 08 |-..A@..o|...!.o..|
|000008e0| 3a 85 6f 00 c2 08 40 21 | 85 6f 00 c2 08 41 21 85 |:.o...@!|.o...A!.|
|000008f0| 6f 00 c3 08 40 21 85 6f | 00 c3 08 41 21 85 6f 00 |o...@!.o|...A!.o.|
|00000900| c3 08 40 21 c3 08 41 21 | 3d 85 6f 00 c4 c3 08 40 |..@!..A!|=.o....@|
|00000910| 21 21 85 6f 00 c4 c3 08 | 41 21 21 87 22 20 5b 64 |!!.o....|A!!." [d|
|00000920| 61 74 61 20 6f 76 65 72 | 6c 61 79 70 20 6d 61 72 |ata over|layp mar|
|00000930| 6b 65 72 70 20 6d 61 72 | 6b 65 72 2d 62 75 66 66 |kerp mar|ker-buff|
|00000940| 65 72 20 62 75 66 66 65 | 72 2d 6e 61 6d 65 5d 20 |er buffe|r-name] |
|00000950| 33 5d 29 0a 23 40 32 30 | 32 20 52 65 74 75 72 6e |3]).#@20|2 Return|
|00000960| 73 20 74 68 65 20 76 61 | 6c 75 65 20 6f 66 20 6f |s the va|lue of o|
|00000970| 6e 65 20 6f 66 20 74 68 | 65 20 38 20 58 20 73 65 |ne of th|e 8 X se|
|00000980| 72 76 65 72 20 63 75 74 | 2d 62 75 66 66 65 72 73 |rver cut|-buffers|
|00000990| 2e 20 20 4f 70 74 69 6f | 6e 61 6c 20 61 72 67 0a |.  Optio|nal arg.|
|000009a0| 57 48 49 43 48 2d 4f 4e | 45 20 73 68 6f 75 6c 64 |WHICH-ON|E should|
|000009b0| 20 62 65 20 61 20 6e 75 | 6d 62 65 72 20 66 72 6f | be a nu|mber fro|
|000009c0| 6d 20 30 20 74 6f 20 37 | 2c 20 64 65 66 61 75 6c |m 0 to 7|, defaul|
|000009d0| 74 69 6e 67 20 74 6f 20 | 30 2e 0a 43 75 74 20 62 |ting to |0..Cut b|
|000009e0| 75 66 66 65 72 73 20 61 | 72 65 20 63 6f 6e 73 69 |uffers a|re consi|
|000009f0| 64 65 72 65 64 20 6f 62 | 73 6f 6c 65 74 65 3b 20 |dered ob|solete; |
|00000a00| 79 6f 75 20 73 68 6f 75 | 6c 64 20 75 73 65 20 73 |you shou|ld use s|
|00000a10| 65 6c 65 63 74 69 6f 6e | 73 20 69 6e 73 74 65 61 |election|s instea|
|00000a20| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |d...(def|alias 'x|
|00000a30| 2d 67 65 74 2d 63 75 74 | 2d 62 75 66 66 65 72 20 |-get-cut|-buffer |
|00000a40| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 77 68 69 |#[(&opti|onal whi|
|00000a50| 63 68 2d 6f 6e 65 29 20 | 22 c0 09 83 0b 00 c2 09 |ch-one) |".......|
|00000a60| 48 82 5c 66 00 c3 21 87 | 22 20 5b 78 2d 67 65 74 |H.\f..!.|" [x-get|
|00000a70| 2d 63 75 74 2d 62 75 66 | 66 65 72 2d 69 6e 74 65 |-cut-buf|fer-inte|
|00000a80| 72 6e 61 6c 20 77 68 69 | 63 68 2d 6f 6e 65 20 5b |rnal whi|ch-one [|
|00000a90| 43 55 54 5f 42 55 46 46 | 45 52 30 20 43 55 54 5f |CUT_BUFF|ER0 CUT_|
|00000aa0| 42 55 46 46 45 52 31 20 | 43 55 54 5f 42 55 46 46 |BUFFER1 |CUT_BUFF|
|00000ab0| 45 52 32 20 43 55 54 5f | 42 55 46 46 45 52 33 20 |ER2 CUT_|BUFFER3 |
|00000ac0| 43 55 54 5f 42 55 46 46 | 45 52 34 20 43 55 54 5f |CUT_BUFF|ER4 CUT_|
|00000ad0| 42 55 46 46 45 52 35 20 | 43 55 54 5f 42 55 46 46 |BUFFER5 |CUT_BUFF|
|00000ae0| 45 52 36 20 43 55 54 5f | 42 55 46 46 45 52 37 5d |ER6 CUT_|BUFFER7]|
|00000af0| 20 43 55 54 5f 42 55 46 | 46 45 52 30 5d 20 33 20 | CUT_BUF|FER0] 3 |
|00000b00| 28 23 24 20 2e 20 32 33 | 39 34 29 5d 29 0a 23 40 |(#$ . 23|94)]).#@|
|00000b10| 33 32 32 20 53 74 6f 72 | 65 20 53 54 52 49 4e 47 |322 Stor|e STRING|
|00000b20| 20 69 6e 74 6f 20 74 68 | 65 20 58 20 73 65 72 76 | into th|e X serv|
|00000b30| 65 72 27 73 20 70 72 69 | 6d 61 72 79 20 63 75 74 |er's pri|mary cut|
|00000b40| 20 62 75 66 66 65 72 2e | 0a 49 66 20 50 55 53 48 | buffer.|.If PUSH|
|00000b50| 20 69 73 20 6e 6f 6e 2d | 6e 69 6c 2c 20 61 6c 73 | is non-|nil, als|
|00000b60| 6f 20 72 6f 74 61 74 65 | 20 74 68 65 20 63 75 74 |o rotate| the cut|
|00000b70| 20 62 75 66 66 65 72 73 | 3a 0a 74 68 69 73 20 6d | buffers|:.this m|
|00000b80| 65 61 6e 73 20 74 68 65 | 20 70 72 65 76 69 6f 75 |eans the| previou|
|00000b90| 73 20 76 61 6c 75 65 20 | 6f 66 20 74 68 65 20 70 |s value |of the p|
|00000ba0| 72 69 6d 61 72 79 20 63 | 75 74 20 62 75 66 66 65 |rimary c|ut buffe|
|00000bb0| 72 20 6d 6f 76 65 73 20 | 74 68 65 20 73 65 63 6f |r moves |the seco|
|00000bc0| 6e 64 0a 63 75 74 20 62 | 75 66 66 65 72 2c 20 61 |nd.cut b|uffer, a|
|00000bd0| 6e 64 20 74 68 65 20 73 | 65 63 6f 6e 64 20 74 6f |nd the s|econd to|
|00000be0| 20 74 68 65 20 74 68 69 | 72 64 2c 20 61 6e 64 20 | the thi|rd, and |
|00000bf0| 73 6f 20 6f 6e 20 28 74 | 68 65 72 65 20 61 72 65 |so on (t|here are|
|00000c00| 20 38 20 62 75 66 66 65 | 72 73 2e 29 0a 43 75 74 | 8 buffe|rs.).Cut|
|00000c10| 20 62 75 66 66 65 72 73 | 20 61 72 65 20 63 6f 6e | buffers| are con|
|00000c20| 73 69 64 65 72 65 64 20 | 6f 62 73 6f 6c 65 74 65 |sidered |obsolete|
|00000c30| 3b 20 79 6f 75 20 73 68 | 6f 75 6c 64 20 75 73 65 |; you sh|ould use|
|00000c40| 20 73 65 6c 65 63 74 69 | 6f 6e 73 20 69 6e 73 74 | selecti|ons inst|
|00000c50| 65 61 64 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ead...(d|efalias |
|00000c60| 27 78 2d 73 65 74 2d 63 | 75 74 2d 62 75 66 66 65 |'x-set-c|ut-buffe|
|00000c70| 72 20 23 5b 28 73 74 72 | 69 6e 67 20 26 6f 70 74 |r #[(str|ing &opt|
|00000c80| 69 6f 6e 61 6c 20 70 75 | 73 68 29 20 22 08 83 08 |ional pu|sh) "...|
|00000c90| 00 c1 c2 21 88 c3 c4 0d | 5c 22 87 22 20 5b 70 75 |...!....|\"." [pu|
|00000ca0| 73 68 20 78 2d 72 6f 74 | 61 74 65 2d 63 75 74 2d |sh x-rot|ate-cut-|
|00000cb0| 62 75 66 66 65 72 73 2d | 69 6e 74 65 72 6e 61 6c |buffers-|internal|
|00000cc0| 20 31 20 78 2d 73 74 6f | 72 65 2d 63 75 74 2d 62 | 1 x-sto|re-cut-b|
|00000cd0| 75 66 66 65 72 2d 69 6e | 74 65 72 6e 61 6c 20 43 |uffer-in|ternal C|
|00000ce0| 55 54 5f 42 55 46 46 45 | 52 30 20 73 74 72 69 6e |UT_BUFFE|R0 strin|
|00000cf0| 67 5d 20 33 20 28 23 24 | 20 2e 20 32 38 33 36 29 |g] 3 (#$| . 2836)|
|00000d00| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 78 73 |]).(defa|lias 'xs|
|00000d10| 65 6c 65 63 74 2d 63 6f | 6e 76 65 72 74 2d 74 6f |elect-co|nvert-to|
|00000d20| 2d 73 74 72 69 6e 67 20 | 23 5b 28 73 65 6c 65 63 |-string |#[(selec|
|00000d30| 74 69 6f 6e 20 74 79 70 | 65 20 76 61 6c 75 65 29 |tion typ|e value)|
|00000d40| 20 22 08 3b 83 07 00 08 | 87 c1 08 21 83 28 00 8a | ".;....|...!.(..|
|00000d50| c2 c3 08 21 21 84 1a 00 | c4 c5 21 88 c3 08 21 71 |...!!...|..!...!q|
|00000d60| 88 c6 08 21 c7 08 21 7b | 29 87 08 3a 83 65 00 c8 |...!..!{|)..:.e..|
|00000d70| 08 40 21 83 65 00 c8 08 | 41 21 83 65 00 c9 08 40 |.@!.e...|A!.e...@|
|00000d80| 21 c9 08 41 21 3d 84 51 | 00 ca c4 cb 08 40 08 41 |!..A!=.Q|.....@.A|
|00000d90| 45 5c 22 88 8a c9 08 40 | 21 86 5c 5c 00 c4 c5 21 |E\"....@|!.\\...!|
|00000da0| 71 88 08 40 08 41 7b 29 | 87 cc 87 22 20 5b 76 61 |q..@.A{)|..." [va|
|00000db0| 6c 75 65 20 6f 76 65 72 | 6c 61 79 70 20 62 75 66 |lue over|layp buf|
|00000dc0| 66 65 72 2d 6e 61 6d 65 | 20 6f 76 65 72 6c 61 79 |fer-name| overlay|
|00000dd0| 2d 62 75 66 66 65 72 20 | 65 72 72 6f 72 20 22 73 |-buffer |error "s|
|00000de0| 65 6c 65 63 74 69 6f 6e | 20 69 73 20 69 6e 20 61 |election| is in a|
|00000df0| 20 6b 69 6c 6c 65 64 20 | 62 75 66 66 65 72 22 20 | killed |buffer" |
|00000e00| 6f 76 65 72 6c 61 79 2d | 73 74 61 72 74 20 6f 76 |overlay-|start ov|
|00000e10| 65 72 6c 61 79 2d 65 6e | 64 20 6d 61 72 6b 65 72 |erlay-en|d marker|
|00000e20| 70 20 6d 61 72 6b 65 72 | 2d 62 75 66 66 65 72 20 |p marker|-buffer |
|00000e30| 73 69 67 6e 61 6c 20 22 | 6d 61 72 6b 65 72 73 20 |signal "|markers |
|00000e40| 6d 75 73 74 20 62 65 20 | 69 6e 20 74 68 65 20 73 |must be |in the s|
|00000e50| 61 6d 65 20 62 75 66 66 | 65 72 22 20 6e 69 6c 5d |ame buff|er" nil]|
|00000e60| 20 35 5d 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 | 5]).(de|falias '|
|00000e70| 78 73 65 6c 65 63 74 2d | 63 6f 6e 76 65 72 74 2d |xselect-|convert-|
|00000e80| 74 6f 2d 6c 65 6e 67 74 | 68 20 23 5b 28 73 65 6c |to-lengt|h #[(sel|
|00000e90| 65 63 74 69 6f 6e 20 74 | 79 70 65 20 76 61 6c 75 |ection t|ype valu|
|00000ea0| 65 29 20 22 08 3b 83 5c | 6e 00 08 47 82 4c 00 c1 |e) ".;.\|n..G.L..|
|00000eb0| 08 21 83 1c 00 c2 c3 08 | 21 c4 08 21 5a 21 82 4c |.!......|!..!Z!.L|
|00000ec0| 00 08 3a 85 4c 00 c5 08 | 40 21 85 4c 00 c5 08 41 |..:.L...|@!.L...A|
|00000ed0| 21 85 4c 00 c6 08 40 21 | c6 08 41 21 3d 84 45 00 |!.L...@!|..A!=.E.|
|00000ee0| c7 c8 c9 08 40 08 41 45 | 5c 22 88 c2 08 40 08 41 |....@.AE|\"...@.A|
|00000ef0| 5a 21 89 18 85 5a 00 ca | 08 cb 5c 22 cc 08 cd 5c |Z!...Z..|..\"...\|
|00000f00| 22 42 29 87 22 20 5b 76 | 61 6c 75 65 20 6f 76 65 |"B)." [v|alue ove|
|00000f10| 72 6c 61 79 70 20 61 62 | 73 20 6f 76 65 72 6c 61 |rlayp ab|s overla|
|00000f20| 79 2d 65 6e 64 20 6f 76 | 65 72 6c 61 79 2d 73 74 |y-end ov|erlay-st|
|00000f30| 61 72 74 20 6d 61 72 6b | 65 72 70 20 6d 61 72 6b |art mark|erp mark|
|00000f40| 65 72 2d 62 75 66 66 65 | 72 20 73 69 67 6e 61 6c |er-buffe|r signal|
|00000f50| 20 65 72 72 6f 72 20 22 | 6d 61 72 6b 65 72 73 20 | error "|markers |
|00000f60| 6d 75 73 74 20 62 65 20 | 69 6e 20 74 68 65 20 73 |must be |in the s|
|00000f70| 61 6d 65 20 62 75 66 66 | 65 72 22 20 61 73 68 20 |ame buff|er" ash |
|00000f80| 2d 31 36 20 6c 6f 67 61 | 6e 64 20 36 35 35 33 35 |-16 loga|nd 65535|
|00000f90| 5d 20 36 5d 29 0a 28 64 | 65 66 61 6c 69 61 73 20 |] 6]).(d|efalias |
|00000fa0| 27 78 73 65 6c 65 63 74 | 2d 63 6f 6e 76 65 72 74 |'xselect|-convert|
|00000fb0| 2d 74 6f 2d 74 61 72 67 | 65 74 73 20 23 5b 28 73 |-to-targ|ets #[(s|
|00000fc0| 65 6c 65 63 74 69 6f 6e | 20 74 79 70 65 20 76 61 |election| type va|
|00000fd0| 6c 75 65 29 20 22 c0 c1 | c2 0b 5c 22 42 89 1c 1d |lue) "..|..\"B...|
|00000fe0| 0d 83 39 00 0d 40 0d 41 | 3e 83 21 00 0d c6 0d 40 |..9..@.A|>.!....@|
|00000ff0| 0d 41 5c 22 a1 88 82 09 | 00 0d 41 40 c7 3d 83 32 |.A\"....|..A@.=.2|
|00001000| 00 0d 89 41 41 a1 88 82 | 09 00 0d 41 89 15 84 0d |...AA...|...A....|
|00001010| 00 c8 c9 5c 66 5c 22 2a | 87 22 20 5b 54 49 4d 45 |...\f\"*|." [TIME|
|00001020| 53 54 41 4d 50 20 6d 61 | 70 63 61 72 20 63 61 72 |STAMP ma|pcar car|
|00001030| 20 73 65 6c 65 63 74 69 | 6f 6e 2d 63 6f 6e 76 65 | selecti|on-conve|
|00001040| 72 74 65 72 2d 61 6c 69 | 73 74 20 61 6c 6c 20 72 |rter-ali|st all r|
|00001050| 65 73 74 20 64 65 6c 71 | 20 5f 45 4d 41 43 53 5f |est delq| _EMACS_|
|00001060| 49 4e 54 45 52 4e 41 4c | 20 61 70 70 6c 79 20 76 |INTERNAL| apply v|
|00001070| 65 63 74 6f 72 5d 20 35 | 5d 29 0a 28 64 65 66 61 |ector] 5|]).(defa|
|00001080| 6c 69 61 73 20 27 78 73 | 65 6c 65 63 74 2d 63 6f |lias 'xs|elect-co|
|00001090| 6e 76 65 72 74 2d 74 6f | 2d 64 65 6c 65 74 65 20 |nvert-to|-delete |
|000010a0| 23 5b 28 73 65 6c 65 63 | 74 69 6f 6e 20 74 79 70 |#[(selec|tion typ|
|000010b0| 65 20 76 61 6c 75 65 29 | 20 22 c0 09 21 88 c2 87 |e value)| "..!...|
|000010c0| 22 20 5b 78 2d 64 69 73 | 6f 77 6e 2d 73 65 6c 65 |" [x-dis|own-sele|
|000010d0| 63 74 69 6f 6e 2d 69 6e | 74 65 72 6e 61 6c 20 73 |ction-in|ternal s|
|000010e0| 65 6c 65 63 74 69 6f 6e | 20 4e 55 4c 4c 5d 20 32 |election| NULL] 2|
|000010f0| 5d 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 78 73 |]).(defa|lias 'xs|
|00001100| 65 6c 65 63 74 2d 63 6f | 6e 76 65 72 74 2d 74 6f |elect-co|nvert-to|
|00001110| 2d 66 69 6c 65 6e 61 6d | 65 20 23 5b 28 73 65 6c |-filenam|e #[(sel|
|00001120| 65 63 74 69 6f 6e 20 74 | 79 70 65 20 76 61 6c 75 |ection t|ype valu|
|00001130| 65 29 20 22 c0 09 21 83 | 12 00 c2 c3 09 21 86 10 |e) "..!.|.....!..|
|00001140| 00 c4 c5 21 21 87 09 3a | 83 32 00 c6 09 40 21 83 |...!!..:|.2...@!.|
|00001150| 32 00 c6 09 41 21 83 32 | 00 c2 c7 09 40 21 86 30 |2...A!.2|....@!.0|
|00001160| 00 c4 c5 21 21 87 c8 87 | 22 20 5b 6f 76 65 72 6c |...!!...|" [overl|
|00001170| 61 79 70 20 76 61 6c 75 | 65 20 62 75 66 66 65 72 |ayp valu|e buffer|
|00001180| 2d 66 69 6c 65 2d 6e 61 | 6d 65 20 6f 76 65 72 6c |-file-na|me overl|
|00001190| 61 79 2d 62 75 66 66 65 | 72 20 65 72 72 6f 72 20 |ay-buffe|r error |
|000011a0| 22 73 65 6c 65 63 74 69 | 6f 6e 20 69 73 20 69 6e |"selecti|on is in|
|000011b0| 20 61 20 6b 69 6c 6c 65 | 64 20 62 75 66 66 65 72 | a kille|d buffer|
|000011c0| 22 20 6d 61 72 6b 65 72 | 70 20 6d 61 72 6b 65 72 |" marker|p marker|
|000011d0| 2d 62 75 66 66 65 72 20 | 6e 69 6c 5d 20 33 5d 29 |-buffer |nil] 3])|
|000011e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 78 73 65 6c |.(defali|as 'xsel|
|000011f0| 65 63 74 2d 63 6f 6e 76 | 65 72 74 2d 74 6f 2d 63 |ect-conv|ert-to-c|
|00001200| 68 61 72 70 6f 73 20 23 | 5b 28 73 65 6c 65 63 74 |harpos #|[(select|
|00001210| 69 6f 6e 20 74 79 70 65 | 20 76 61 6c 75 65 29 20 |ion type| value) |
|00001220| 22 c0 89 89 19 1a 1b c4 | 0d 21 83 18 00 c6 0d 21 |".......|.!.....!|
|00001230| 13 c7 0d 21 89 12 82 32 | 00 0d 3a 85 5d 00 c8 0d |...!...2|..:.]...|
|00001240| 40 21 85 5d 00 c8 0d 41 | 21 85 5d 00 0d 40 13 0d |@!.]...A|!.]..@..|
|00001250| 41 89 12 85 5d 00 0b 53 | 13 5c 6e 53 89 12 0b 57 |A...]..S|.\nS...W|
|00001260| 83 47 00 0b 11 5c 6e 13 | 09 12 c9 ca cb 0b cc 5c |.G...\n.|.......\|
|00001270| 22 cd 0b ce 5c 22 42 cb | 5c 6e cc 5c 22 cd 5c 6e |"...\"B.|\n.\".\n|
|00001280| ce 5c 22 42 5c 22 42 2b | 87 22 20 5b 6e 69 6c 20 |.\"B\"B+|." [nil |
|00001290| 74 6d 70 20 62 20 61 20 | 6f 76 65 72 6c 61 79 70 |tmp b a |overlayp|
|000012a0| 20 76 61 6c 75 65 20 6f | 76 65 72 6c 61 79 2d 73 | value o|verlay-s|
|000012b0| 74 61 72 74 20 6f 76 65 | 72 6c 61 79 2d 65 6e 64 |tart ove|rlay-end|
|000012c0| 20 6d 61 72 6b 65 72 70 | 20 53 50 41 4e 20 76 65 | markerp| SPAN ve|
|000012d0| 63 74 6f 72 20 61 73 68 | 20 2d 31 36 20 6c 6f 67 |ctor ash| -16 log|
|000012e0| 61 6e 64 20 36 35 35 33 | 35 5d 20 38 5d 29 0a 28 |and 6553|5] 8]).(|
|000012f0| 64 65 66 61 6c 69 61 73 | 20 27 78 73 65 6c 65 63 |defalias| 'xselec|
|00001300| 74 2d 63 6f 6e 76 65 72 | 74 2d 74 6f 2d 6c 69 6e |t-conver|t-to-lin|
|00001310| 65 6e 6f 20 23 5b 28 73 | 65 6c 65 63 74 69 6f 6e |eno #[(s|election|
|00001320| 20 74 79 70 65 20 76 61 | 6c 75 65 29 20 22 c0 89 | type va|lue) "..|
|00001330| 89 89 19 1a 1b 1c 0d 3a | 83 2e 00 c6 0d 40 21 83 |.......:|.....@!.|
|00001340| 2e 00 c6 0d 41 21 83 2e | 00 c7 0d 40 21 14 c7 0d |....A!..|...@!...|
|00001350| 41 21 13 c8 0d 40 21 89 | 12 82 41 00 c9 0d 21 85 |A!...@!.|..A...!.|
|00001360| 75 00 ca 0d 21 12 cb 0d | 21 14 cc 0d 21 89 13 85 |u...!...|!...!...|
|00001370| 75 00 8a 5c 6e 71 88 cd | ce 5c 66 5c 22 14 cd ce |u..\nq..|.\f\"...|
|00001380| 0b 5c 22 13 29 0b 5c 66 | 57 83 5f 00 5c 66 11 0b |.\".).\f|W._.\f..|
|00001390| 14 09 13 cf d0 d1 5c 66 | d2 5c 22 d3 5c 66 d4 5c |......\f|.\".\f.\|
|000013a0| 22 42 d1 0b d2 5c 22 d3 | 0b d4 5c 22 42 5c 22 42 |"B...\".|..\"B\"B|
|000013b0| 2c 87 22 20 5b 6e 69 6c | 20 74 6d 70 20 62 75 66 |,." [nil| tmp buf|
|000013c0| 20 62 20 61 20 76 61 6c | 75 65 20 6d 61 72 6b 65 | b a val|ue marke|
|000013d0| 72 70 20 6d 61 72 6b 65 | 72 2d 70 6f 73 69 74 69 |rp marke|r-positi|
|000013e0| 6f 6e 20 6d 61 72 6b 65 | 72 2d 62 75 66 66 65 72 |on marke|r-buffer|
|000013f0| 20 6f 76 65 72 6c 61 79 | 70 20 6f 76 65 72 6c 61 | overlay|p overla|
|00001400| 79 2d 62 75 66 66 65 72 | 20 6f 76 65 72 6c 61 79 |y-buffer| overlay|
|00001410| 2d 73 74 61 72 74 20 6f | 76 65 72 6c 61 79 2d 65 |-start o|verlay-e|
|00001420| 6e 64 20 63 6f 75 6e 74 | 2d 6c 69 6e 65 73 20 31 |nd count|-lines 1|
|00001430| 20 53 50 41 4e 20 76 65 | 63 74 6f 72 20 61 73 68 | SPAN ve|ctor ash|
|00001440| 20 2d 31 36 20 6c 6f 67 | 61 6e 64 20 36 35 35 33 | -16 log|and 6553|
|00001450| 35 5d 20 37 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |5] 7]).(|defalias|
|00001460| 20 27 78 73 65 6c 65 63 | 74 2d 63 6f 6e 76 65 72 | 'xselec|t-conver|
|00001470| 74 2d 74 6f 2d 63 6f 6c | 6e 6f 20 23 5b 28 73 65 |t-to-col|no #[(se|
|00001480| 6c 65 63 74 69 6f 6e 20 | 74 79 70 65 20 76 61 6c |lection |type val|
|00001490| 75 65 29 20 22 c0 89 89 | 89 19 1a 1b 1c 0d 3a 83 |ue) "...|......:.|
|000014a0| 29 00 c6 0d 40 21 83 29 | 00 c6 0d 41 21 83 29 00 |)...@!.)|...A!.).|
|000014b0| 0d 40 14 0d 41 13 c7 5c | 66 21 89 12 82 3c 00 c8 |.@..A..\|f!...<..|
|000014c0| 0d 21 85 70 00 c9 0d 21 | 12 ca 0d 21 14 cb 0d 21 |.!.p...!|...!...!|
|000014d0| 89 13 85 70 00 8a 5c 6e | 71 88 5c 66 62 88 69 14 |...p..\n|q.\fb.i.|
|000014e0| 0b 62 88 69 13 29 0b 5c | 66 57 83 5a 00 5c 66 11 |.b.i.).\|fW.Z.\f.|
|000014f0| 0b 14 09 13 cc cd ce 5c | 66 cf 5c 22 d0 5c 66 d1 |.......\|f.\".\f.|
|00001500| 5c 22 42 ce 0b cf 5c 22 | d0 0b d1 5c 22 42 5c 22 |\"B...\"|...\"B\"|
|00001510| 42 2c 87 22 20 5b 6e 69 | 6c 20 74 6d 70 20 62 75 |B,." [ni|l tmp bu|
|00001520| 66 20 62 20 61 20 76 61 | 6c 75 65 20 6d 61 72 6b |f b a va|lue mark|
|00001530| 65 72 70 20 6d 61 72 6b | 65 72 2d 62 75 66 66 65 |erp mark|er-buffe|
|00001540| 72 20 6f 76 65 72 6c 61 | 79 70 20 6f 76 65 72 6c |r overla|yp overl|
|00001550| 61 79 2d 62 75 66 66 65 | 72 20 6f 76 65 72 6c 61 |ay-buffe|r overla|
|00001560| 79 2d 73 74 61 72 74 20 | 6f 76 65 72 6c 61 79 2d |y-start |overlay-|
|00001570| 65 6e 64 20 53 50 41 4e | 20 76 65 63 74 6f 72 20 |end SPAN| vector |
|00001580| 61 73 68 20 2d 31 36 20 | 6c 6f 67 61 6e 64 20 36 |ash -16 |logand 6|
|00001590| 35 35 33 35 5d 20 37 5d | 29 0a 28 64 65 66 61 6c |5535] 7]|).(defal|
|000015a0| 69 61 73 20 27 78 73 65 | 6c 65 63 74 2d 63 6f 6e |ias 'xse|lect-con|
|000015b0| 76 65 72 74 2d 74 6f 2d | 6f 73 20 23 5b 28 73 65 |vert-to-|os #[(se|
|000015c0| 6c 65 63 74 69 6f 6e 20 | 74 79 70 65 20 73 69 7a |lection |type siz|
|000015d0| 65 29 20 22 c0 09 21 87 | 22 20 5b 73 79 6d 62 6f |e) "..!.|" [symbo|
|000015e0| 6c 2d 6e 61 6d 65 20 73 | 79 73 74 65 6d 2d 74 79 |l-name s|ystem-ty|
|000015f0| 70 65 5d 20 32 5d 29 0a | 28 64 65 66 61 6c 69 61 |pe] 2]).|(defalia|
|00001600| 73 20 27 78 73 65 6c 65 | 63 74 2d 63 6f 6e 76 65 |s 'xsele|ct-conve|
|00001610| 72 74 2d 74 6f 2d 68 6f | 73 74 20 23 5b 28 73 65 |rt-to-ho|st #[(se|
|00001620| 6c 65 63 74 69 6f 6e 20 | 74 79 70 65 20 73 69 7a |lection |type siz|
|00001630| 65 29 20 22 c0 20 87 22 | 20 5b 73 79 73 74 65 6d |e) ". ."| [system|
|00001640| 2d 6e 61 6d 65 5d 20 31 | 5d 29 0a 28 64 65 66 61 |-name] 1|]).(defa|
|00001650| 6c 69 61 73 20 27 78 73 | 65 6c 65 63 74 2d 63 6f |lias 'xs|elect-co|
|00001660| 6e 76 65 72 74 2d 74 6f | 2d 75 73 65 72 20 23 5b |nvert-to|-user #[|
|00001670| 28 73 65 6c 65 63 74 69 | 6f 6e 20 74 79 70 65 20 |(selecti|on type |
|00001680| 73 69 7a 65 29 20 22 c0 | 20 87 22 20 5b 75 73 65 |size) ".| ." [use|
|00001690| 72 2d 66 75 6c 6c 2d 6e | 61 6d 65 5d 20 31 5d 29 |r-full-n|ame] 1])|
|000016a0| 0a 23 40 37 20 45 6d 61 | 63 73 1f 0a 28 64 65 66 |.#@7 Ema|cs..(def|
|000016b0| 61 6c 69 61 73 20 27 78 | 73 65 6c 65 63 74 2d 63 |alias 'x|select-c|
|000016c0| 6f 6e 76 65 72 74 2d 74 | 6f 2d 63 6c 61 73 73 20 |onvert-t|o-class |
|000016d0| 23 5b 28 73 65 6c 65 63 | 74 69 6f 6e 20 74 79 70 |#[(selec|tion typ|
|000016e0| 65 20 73 69 7a 65 29 20 | 22 c0 87 22 20 5b 6e 69 |e size) |".." [ni|
|000016f0| 6c 5d 20 31 20 28 23 24 | 20 2e 20 35 37 39 37 29 |l] 1 (#$| . 5797)|
|00001700| 5d 29 0a 23 40 37 20 65 | 6d 61 63 73 1f 0a 28 64 |]).#@7 e|macs..(d|
|00001710| 65 66 61 6c 69 61 73 20 | 27 78 73 65 6c 65 63 74 |efalias |'xselect|
|00001720| 2d 63 6f 6e 76 65 72 74 | 2d 74 6f 2d 6e 61 6d 65 |-convert|-to-name|
|00001730| 20 23 5b 28 73 65 6c 65 | 63 74 69 6f 6e 20 74 79 | #[(sele|ction ty|
|00001740| 70 65 20 73 69 7a 65 29 | 20 22 c0 87 22 20 5b 6e |pe size)| ".." [n|
|00001750| 69 6c 5d 20 31 20 28 23 | 24 20 2e 20 35 38 39 35 |il] 1 (#|$ . 5895|
|00001760| 29 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 78 |)]).(def|alias 'x|
|00001770| 73 65 6c 65 63 74 2d 63 | 6f 6e 76 65 72 74 2d 74 |select-c|onvert-t|
|00001780| 6f 2d 69 6e 74 65 67 65 | 72 20 23 5b 28 73 65 6c |o-intege|r #[(sel|
|00001790| 65 63 74 69 6f 6e 20 74 | 79 70 65 20 76 61 6c 75 |ection t|ype valu|
|000017a0| 65 29 20 22 08 a8 85 0e | 00 c1 08 c2 5c 22 c3 08 |e) "....|....\"..|
|000017b0| c4 5c 22 42 87 22 20 5b | 76 61 6c 75 65 20 61 73 |.\"B." [|value as|
|000017c0| 68 20 2d 31 36 20 6c 6f | 67 61 6e 64 20 36 35 35 |h -16 lo|gand 655|
|000017d0| 33 35 5d 20 34 5d 29 0a | 28 64 65 66 61 6c 69 61 |35] 4]).|(defalia|
|000017e0| 73 20 27 78 73 65 6c 65 | 63 74 2d 63 6f 6e 76 65 |s 'xsele|ct-conve|
|000017f0| 72 74 2d 74 6f 2d 61 74 | 6f 6d 20 23 5b 28 73 65 |rt-to-at|om #[(se|
|00001800| 6c 65 63 74 69 6f 6e 20 | 74 79 70 65 20 76 61 6c |lection |type val|
|00001810| 75 65 29 20 22 08 39 85 | 06 00 08 87 22 20 5b 76 |ue) ".9.|...." [v|
|00001820| 61 6c 75 65 5d 20 31 5d | 29 0a 28 64 65 66 61 6c |alue] 1]|).(defal|
|00001830| 69 61 73 20 27 78 73 65 | 6c 65 63 74 2d 63 6f 6e |ias 'xse|lect-con|
|00001840| 76 65 72 74 2d 74 6f 2d | 69 64 65 6e 74 69 74 79 |vert-to-|identity|
|00001850| 20 23 5b 28 73 65 6c 65 | 63 74 69 6f 6e 20 74 79 | #[(sele|ction ty|
|00001860| 70 65 20 76 61 6c 75 65 | 29 20 22 c0 09 21 87 22 |pe value|) "..!."|
|00001870| 20 5b 76 65 63 74 6f 72 | 20 76 61 6c 75 65 5d 20 | [vector| value] |
|00001880| 32 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |2]).(byt|e-code "|
|00001890| c0 11 c2 c3 21 87 22 20 | 5b 28 28 54 45 58 54 20 |....!." |[((TEXT |
|000018a0| 2e 20 78 73 65 6c 65 63 | 74 2d 63 6f 6e 76 65 72 |. xselec|t-conver|
|000018b0| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 29 20 28 53 54 |t-to-str|ing) (ST|
|000018c0| 52 49 4e 47 20 2e 20 78 | 73 65 6c 65 63 74 2d 63 |RING . x|select-c|
|000018d0| 6f 6e 76 65 72 74 2d 74 | 6f 2d 73 74 72 69 6e 67 |onvert-t|o-string|
|000018e0| 29 20 28 54 41 52 47 45 | 54 53 20 2e 20 78 73 65 |) (TARGE|TS . xse|
|000018f0| 6c 65 63 74 2d 63 6f 6e | 76 65 72 74 2d 74 6f 2d |lect-con|vert-to-|
|00001900| 74 61 72 67 65 74 73 29 | 20 28 4c 45 4e 47 54 48 |targets)| (LENGTH|
|00001910| 20 2e 20 78 73 65 6c 65 | 63 74 2d 63 6f 6e 76 65 | . xsele|ct-conve|
|00001920| 72 74 2d 74 6f 2d 6c 65 | 6e 67 74 68 29 20 28 44 |rt-to-le|ngth) (D|
|00001930| 45 4c 45 54 45 20 2e 20 | 78 73 65 6c 65 63 74 2d |ELETE . |xselect-|
|00001940| 63 6f 6e 76 65 72 74 2d | 74 6f 2d 64 65 6c 65 74 |convert-|to-delet|
|00001950| 65 29 20 28 46 49 4c 45 | 5f 4e 41 4d 45 20 2e 20 |e) (FILE|_NAME . |
|00001960| 78 73 65 6c 65 63 74 2d | 63 6f 6e 76 65 72 74 2d |xselect-|convert-|
|00001970| 74 6f 2d 66 69 6c 65 6e | 61 6d 65 29 20 28 43 48 |to-filen|ame) (CH|
|00001980| 41 52 41 43 54 45 52 5f | 50 4f 53 49 54 49 4f 4e |ARACTER_|POSITION|
|00001990| 20 2e 20 78 73 65 6c 65 | 63 74 2d 63 6f 6e 76 65 | . xsele|ct-conve|
|000019a0| 72 74 2d 74 6f 2d 63 68 | 61 72 70 6f 73 29 20 28 |rt-to-ch|arpos) (|
|000019b0| 4c 49 4e 45 5f 4e 55 4d | 42 45 52 20 2e 20 78 73 |LINE_NUM|BER . xs|
|000019c0| 65 6c 65 63 74 2d 63 6f | 6e 76 65 72 74 2d 74 6f |elect-co|nvert-to|
|000019d0| 2d 6c 69 6e 65 6e 6f 29 | 20 28 43 4f 4c 55 4d 4e |-lineno)| (COLUMN|
|000019e0| 5f 4e 55 4d 42 45 52 20 | 2e 20 78 73 65 6c 65 63 |_NUMBER |. xselec|
|000019f0| 74 2d 63 6f 6e 76 65 72 | 74 2d 74 6f 2d 63 6f 6c |t-conver|t-to-col|
|00001a00| 6e 6f 29 20 28 4f 57 4e | 45 52 5f 4f 53 20 2e 20 |no) (OWN|ER_OS . |
|00001a10| 78 73 65 6c 65 63 74 2d | 63 6f 6e 76 65 72 74 2d |xselect-|convert-|
|00001a20| 74 6f 2d 6f 73 29 20 28 | 48 4f 53 54 5f 4e 41 4d |to-os) (|HOST_NAM|
|00001a30| 45 20 2e 20 78 73 65 6c | 65 63 74 2d 63 6f 6e 76 |E . xsel|ect-conv|
|00001a40| 65 72 74 2d 74 6f 2d 68 | 6f 73 74 29 20 28 55 53 |ert-to-h|ost) (US|
|00001a50| 45 52 20 2e 20 78 73 65 | 6c 65 63 74 2d 63 6f 6e |ER . xse|lect-con|
|00001a60| 76 65 72 74 2d 74 6f 2d | 75 73 65 72 29 20 28 43 |vert-to-|user) (C|
|00001a70| 4c 41 53 53 20 2e 20 78 | 73 65 6c 65 63 74 2d 63 |LASS . x|select-c|
|00001a80| 6f 6e 76 65 72 74 2d 74 | 6f 2d 63 6c 61 73 73 29 |onvert-t|o-class)|
|00001a90| 20 28 4e 41 4d 45 20 2e | 20 78 73 65 6c 65 63 74 | (NAME .| xselect|
|00001aa0| 2d 63 6f 6e 76 65 72 74 | 2d 74 6f 2d 6e 61 6d 65 |-convert|-to-name|
|00001ab0| 29 20 28 41 54 4f 4d 20 | 2e 20 78 73 65 6c 65 63 |) (ATOM |. xselec|
|00001ac0| 74 2d 63 6f 6e 76 65 72 | 74 2d 74 6f 2d 61 74 6f |t-conver|t-to-ato|
|00001ad0| 6d 29 20 28 49 4e 54 45 | 47 45 52 20 2e 20 78 73 |m) (INTE|GER . xs|
|00001ae0| 65 6c 65 63 74 2d 63 6f | 6e 76 65 72 74 2d 74 6f |elect-co|nvert-to|
|00001af0| 2d 69 6e 74 65 67 65 72 | 29 20 28 5f 45 4d 41 43 |-integer|) (_EMAC|
|00001b00| 53 5f 49 4e 54 45 52 4e | 41 4c 20 2e 20 78 73 65 |S_INTERN|AL . xse|
|00001b10| 6c 65 63 74 2d 63 6f 6e | 76 65 72 74 2d 74 6f 2d |lect-con|vert-to-|
|00001b20| 69 64 65 6e 74 69 74 79 | 29 29 20 73 65 6c 65 63 |identity|)) selec|
|00001b30| 74 69 6f 6e 2d 63 6f 6e | 76 65 72 74 65 72 2d 61 |tion-con|verter-a|
|00001b40| 6c 69 73 74 20 70 72 6f | 76 69 64 65 20 73 65 6c |list pro|vide sel|
|00001b50| 65 63 74 5d 20 32 29 0a |                         |ect] 2).|        |
+--------+-------------------------+-------------------------+--------+--------+